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ENFIN .... ! Voilà certainement 1 ' exclamation que vont avoir beaucoup 
d'entre vous en recevant ce premier bulletin du CLUB PC 1211. Car 
certains sont inscrits depuis plus d'un an sans avoir reçu de notre 
part aucune nouvelle. 

Mors des explications !!! Et bien oui, une seule... 

La mise en route du bulletin CHJB a été victime du succès de la PC 1211. 
Nous nous attendions à avoir quelques centaines d'adhérents. Or, vous 
êtes déjà plus de 1 500 et chaque jour de nouveaux bulletins nous arri- 
vent. 

Face à cela, il nous a fallu nous organiser, trouver des moyens et des 
gens pour faire vivre ce CLUB et cela prend du temps. 

Mais tout arrive : les moyens - OFFSET, SECRETAIRE, MATERIEL, etc - le 
tout mis gracieusement à la disposition du CLUB par SBM. 

Mais aussi les gens. Jérome HUYON et Luc BURELLER, 2 lycéens qui seront 
vos interlocuteurs et pour qui la PC 1211 n'a aucun secret. 

Quant à moi, je tacherais chaque trimestre de vous dire un petit mot de 
SHARP, de ses produits, de ses projets... 

Mais n'oubliez pas que les vrais animateurs du CLUB, c'est vous !!! 

Les PECEDOU ZEON Z I STES ! Mors je vous dis (parodiant la publicité d'un 
club de vacances bien connu) ECRIVEZ ! SUGGEREZ ! CRITIQUEZ ! QUESTION- 
NEZ ! REPONDEZ ! ENVOYEZ ! nos pages vous sont ouvertes. 

Et maintenant que les acteurs et décors sont en place, il ne me reste 
qu'à souhaiter longue vie au CLUB et à son bulletin, et à vous -mène 
"JOYEUX NOËL et BONNE ANNEE". 


D.MDNTERNOT 

« 

PS : SVP précisez . dans tous vos courriers/ en caractère gras : 

CLUB PC 1211. Merci. 
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LE CLUB 


Le but du club est d'aider tout utilisateur de la PC 1211. 
Cette aide se présentera sous forme de compléments et de 
corrections des manuels d'utilisation, sous forme de "trucs" 
de programmation permettant d'optimiser la taille mémoire 
tout en diminuant le temps d'éxécution, et par la réponse 
aux questions posées par les utilisateurs au CLUB par 
l'intermédiaire du présent bulletin. 

Toute personne ayant fait un programme susceptible d ' inté- 
resser d'autres adhérents pourra nous l'envoyer, afin que 
nous le proposions à tous par l'intermédiaire de la logi- 
thèque, comportant une référence et un titre résumant les 
fonctions du programme considéré. Toutes applications sont 
acceptées, y compris les programmes spécifiques de telle 
ou telle profession... Attention ! Il s'agit là d'un 
ECHANGE de programmes. 

Dans chaque numéro paraîtra la logithèque des programmes 
reçus depuis la parution du précédent bulletin, ainsi 
qu'un coupon-réponse permettant d'obtenir le ou les pro- 
grammes désirés (la demande ne peut s'effectuer que sur 
ce coupon, valable pour une certaine quantité de program- 
mes bien définie et ne pouvant être excédée) . 

Seule autre condition, l'envoi avec la demande d'une 
enveloppe timbrée et self adressée pour la réponse, celle 
ci s'effectuant par l'envoi du listing du programme consi- 
déré et les explications y étant relatives. 

Toujours pour aider les adhérents, dans toutes les diffi- 
cultés qu'ils pourraient rencontrer, une permanence télé- 
phonique sera assurée le premier et le troisième mercredi 
de chaque mois, de 14 à 18 heures, au (16-1) 834 93 44 
(demandez le CLUB PC 1211) . Sur simple appel téléphonique, 
nous répondrons à vos questions et essayerons d'apporter 
une solution à vos problèmes (dans la mesure du possible) . 


LUC RTIRELLER / JEROME HUYON 


LOGITHEQUE CLUB PC1211 
Mr 

Adresse 

Ville 


Désire recevoir le listing programme de : 

En échange, je vous fais parvenir listings de programme 

NB : N'oubliez pas l'enveloppe timbrée. 


ASTUCES 


Vous êtes nombreux à nous avoir demandé quels étaient les 
magnétophones compatibles avec la PC 1211. En voici quel- 
ques-uns que nous avons testés pour vous : 

- SONY TCM 121 

- SANYO M 25 11 E 

- SCNY M 400 (Wve.ro ) 

- OLYMPUS SD ... " v ' ■) 

Si vous utilisez des micro-cassettes, nous vous conseillons 
de prendre des micro-cassettes OLYMPUS ou RÏvjjftqui sont de 
meilleure qualité. 

Pendant que nous sommes aux magnétophones, parlons donc un 
peu de l'instruction "CLQAD 1". Beaucoup d'entre vous s'éton- 
nent de ne pas la rencontrer au détour des pages du manuel. 

Et pour cause 1 Elle n'y est pas. POURQUOI ? 

Tout simplement parce que les PC 1211 construites avant le 
mois de MARS 1981 n'en sont pas équipées. Cette instruction 
qui s'utilise tout comme CLQAD, a la particularité d'cppeler 
en mémoire un programme sans "écraser" celui qui sy^ trouve 
déjà. Les programmes ainsi appelés ne pourront être utilisés 
qu'en mode DEF ou par l'appel des labels. 

Chose rare, grâce à cette instruction, vous pourrez mettre 
en mémoire deux fois le même numéro de ligne ( amusant ! ) . 


Passons maintenant aux caractères spéciaux qui intriguent 
certains des possesseurs de la PC 1211. Voyons-les : 

- le ! ne représente pas l'opération mathématique factoriel- 
le. Ce caractère ne sert strictement à rien du point de 
vue programmation. Il est là pour rendre plus vivant vos 
messages alphanumériques (signe de ponctuation) . 

- le %, c'est la même chose. Il n'a pour but que de rendre 
plus claires vos explications. Ce caractère ne calcule pas 
les pourcentages . 

- le lui aussi ne sert à rien. Il est là pour faire joli 
<*- yen, monnaie japonaise) . 

- le 44 1 ne correspond pas à l'opérateur logique / (en BASIC 
O ) . Ce caractère est utilisé par 1 ' instruction US ING 

(Voir manuel) . 


Tout comme l'instruction ÇLOAD 1, l'accès au "langage machine" 
nous est permis, suivant le mois de fabrication de votre 
PC 1211, avant MARS 1981 et depuis AOUT 1981, l'accès en est 
simple, (l 'introduction d'une ligne, son effacement (mode PRD) , 
A/204) puis on joue avec et 

Pour toutes les PC 1211 : 

Voici comment il faut procéder : il faut charger un programme 
(RESERVE) en mode PRO, puis faire actionner les touches ^ et 
pour y accéder!!] 


ASTU suite 


Après tous ces efforts, vous vous apercevez que ce "langage 
machine" ne vous sert à rien puisque vous pouvez utiliser par 
programme les données stockées dans le BASIC et vous ne pou- 
vez changer ces données. 


Un second play back 

En mode de bureau, quand vous disposez les 24 caractères 
de l'afficheur (par exemple en introduisant une longue fonc- 
tion) l'affichage se déplace. La pression d' ENTER vous donne 
le résultat puis en pressant 4 ou ^ , vous récupérez votre 
fonction avec le curseur au début, prêt à travailler. 
Ma.intenant, au lieu de presser directement^ ^ faites SHIFT 
avant. Votre fonction apparaît alors en commençant par la 
fin (seule une lecture est alors possible) . En pressant une 
nouvelle fois 4 ou^> vous réobtenez le début de votre 
fonction. 

Exemple : tapez 

Tapez 1111111 (24 fois) 2222222 (24 fois) ENTER 


1 , 111111111E47 | SHIFT > ou 4 
Zpuvs 4 out» 1 1111111111111111 


22222222222222222 

■■■■ H 


En programme, un résultat affiché par un PRINT, ne peut être 
utilisé directement en mode de bureau. Nous vous conseillons 
de toujours utiliser vos programmes en mode DEF et d'utiliser 
une mémoire carme (Mf M-) à l'aide de ce programme. 


Exemple : 10 "A" AREAD A : END 


Les nombres affichés en PRINT suivi de SHIFT A introduisent 
un nanbre dans la variable A. Pour la réutiliser, on utili- 
sera la variable A. 


Exemple 


12.05 


SHIFT A 


A - .05 


12 . 

1 — ■ “ 


* 




4 


COURRIER 


Monsieur COUE (44) nous demande quels sont les cas dans 
lesquels on utilise le AUj-RESET. 

Une pression sur ALL-RESET effectue une mise à zéro des 
pointeurs de programme des microprocesseurs après avoir 
totalement effacé les mémoires RAM ; c'est donc une ini- 
tialisation du système. Le ALL-RESET s'effectue lorsque 
la machine esf'plantée" (action sur BREAK inefficace 
lors de l'exécution d'un programme, apparition de carac- 
tères bizaroîdes sur l'afficheur, ou tout autre fonction- 
nement anormal de la machine . . . ) 


Monsieur MICHEL (57) nous informe qu'il a réussi à obtenir 
une mémoire disponible de 2500 pas . . . Pourrait-il nous 
dire cornent il a procédé ? 


Monsieur DCUZAN (92) , prof de maths, se plaint que O A 0 
donne 0 "au lieu de 1"... En effet, il s'agit là d'une 
erreur de calcul que commet la PC 1211. De toute façon, 
0^0 est indéterminé, et ne peut donc donner ni O ni 1 ! 


Monsieur BERTRAND (Côte d'ivoire) s'étonne que sa PC 1211 
fasse une erreur lors de l'exécution de E = E8 + 1 . Cela 
vient du fait que le E précédent le chiffre 8 signifie 
"10 puissance" et en conséquence, il faut utiliser le Jf 
situé en bas et au centre du pavé numérique (touche Exp) . 


De nombreux adhérents ont déploré que leur PC 1211 fasse 
des erreurs de calcul, et ils nous ont demandé une liste 
de ces erreurs. Ces erreurs ne se produisent "que" lors 
d'une élévation à la puissance d'un nombre : 

1) Elévation à une puissance paire d'un nombre négatif 
(exemple : - 5^2 = - 25) ; l'élévation à la puissance 
est prioritaire sur le signe - considéré comme étant 
l'opérateur de soustraction et non le signe de néga- 
tion, d'où cette erreur. 


2) Soient A^O et B>0 (avec A et B valeurs numériques ou 
registres) ; INT (A^B) = A^B - 1 ; 

Exemple : INT (5^2) - 24... 

3) 96*^2,96*^3,97^3 et d'autres donnent un résultat 
décimal. 

Exemple : 96*^2 = 9215.999999 au lieu de 9216. 

4) Soient A^O et B un réel quelconque ; A^B donne une 
erreur. Cela vient du fait que la PC 1211 utilise. les 
log pour effectuer les élévations à une puissance quel- 
conque ; or, le log d'un nombre négatif (ou nul) 
n'existe pas, et la machine est incapable d'effectuer 
l'élévation à la puissanœ d'un nombre négatif, d'oû 
cette erreur. Toutefois, il existe un test associant 

0 à tout calcul de la forme O^B (bien que le log de 
0 n'existe pas) et c'est d'ailleurs de ce test que 
découle 0 A 0 = 0. 


COURsuite 


Pour résoudre tous ces problèmes, voici un sous-programme calculant 
sans erreur Z = X A Y avec (X ? 0 et Y = 0) et (X>0 quand Y = .5) . 

Il faut placer dans X et Y les valeurs désirées avant d'appeler ce 
sous-programme ; au retour , le résultat est placé dans z ; les valeurs 
de X et Y sont inchangées : 

900 IF ( X = 0)* (Y = 0) + (X< 0) -JF (,5Y = INT (VY)/2) END 

905 Z = ABSX a Y : IF (Z<> INTZ) -* (X = INTX) * (Y = INTY) LETZ = INTZ +1 

910 IF (X<0) -X (ABSY/2 <> INT (ABSY/2) ) LETZ = - Z 

915 REIURN 

La ligne 900 écarte toute tentative de calcul de 0(0 ou de racine 
paire d'un nombre négatif. La ligne 905 effectue l'élévation à la 
puissance Y de la valeur absolue de X et corrige éventuellement le 
troisième type d'erreur. La ligne 910 rétablit le signe - du résul- 
tat si X est négatif et Y est impair. 


PROGRAMMES 


Voici un p r ogr ann e permettant de calculer les factorielles 
d'un noribre entier quelconque en 4 secondes. Et cela grâce à 
la formule de STIRLING 


Malheureusement/ je ne connais pas les autres termes de la 
suite. Mais, je pense que le suivant doit être 
HVidenment plus œtte suite sera conplétée, plus 
la précision de la factorielle obtenue sera grande. Ici, la 
précision est assez bonne, du moins quand le nombre n'est ni 
trop petit ni trop grand ( 14 x 30000 , précision sure 
à 6 décimales) • La puissance de 10 est toujours exacte, quelle 
que soit la factorielle demandée. Ce progresse est structuré 
en deux parties : 

• les ncnbces inférieurs à 14 : boucle normale 

• las norbres 14 forma le de STIRLING avec ici l'utilisation 


FAGLI IADRENT 


10! "A" AREAD 
*INT ABf> Aï 
IF A< 1 4THEN 
40 

20: B=<L0G A-LüG 
EXP 1>A+LÜG 
2KA/-2: G* 1 INT 
B*Del0 A <B-O 
:E*-U373AAA 
+1/288AA+1>'1 
2A: F=DE«-D 
30:PRINT FJ" £ 

" ï C: END 

40*F*1: FOR 1*1 
TO A:F*FI: 
NEXT I : PRINT 
F: END 

«EM 

1290 PAS 
161 MEMOIRES 


Ce p r ogi a nme vous permettra de faire des calcula avec arron- 
di sous R, avec une précision de 0 S 9 décimales. Son utili- 
sation se fera sous forme de module et pourra s’adapter i 
tous vm pro gr am m e . 

Four ceux qui désirent un arrondi fixe, c’est a dire par 
exenple, toujours à deux décimales, il vous faudra modifier 
la ligne 2 qui deviendra : 2 i F » 2 

De plus, pour pouvoir l’utiliser en saus-progranne, il vous 
faudra éliminer en ligne 1 AREAD A et renplaœr en ligne 4 


Dans votre progn 


tais. 


un Rsnne). 

ne, avant d'envoyer sur ce SSP, pensez â 
le marbre à arrondir dans la variable A : 

100 A - X s GOStB 1 s X - C 
pensez à récupérer la valeur arrondie. 


1: "V'AREAD A: S 
=SGN A: A=ABS 
A: B=INT CLGG 
A): IF <B<10) 
+ <E>--1C0LET 
E= n 

2: INPUT " F I X ? 
" ? F: F -■•-INT < 
ABS F): IF F> 
9THEN 2 
3:C=A*1Û A <F-B) 

: B=IHT <<C- 
INT 0*10): 

IF D>4LE T C= 
C+l 

4 * L.- ~~ j . i ' { B ""F ( 

*INT’c:FRINT 
C : END • 


EXEMPLE: 1000!., 
4. 0238723 14E2S6? 



i.s 


PROGsuite 


Voici un programme d'actualité puisqu'il s'agit des Inpots si. 
Dans cette version, le programme vous donne : 

- les tranches en 81 

- le calcul en nombre des 

- le calcul des impôts 


le % que représente les inpots par 
fiscal 


au net 


• En lignes 1 et 5, les tranches d'imposition sent "»<— ■ en 
mémoire 8 partir de la 27éne variable. 

. Ligne 7 : édit i on des t ranches imposition 

. Lignes 20 8 160 : calcul du nembre de parts "parents" 

. Lignes 200 8 260 : addition des ports "enfants" et édition 


. Liges 270 < ca l c u l du revenu inpoable. Si en entre 0, les 

frais profess i o nn els sont ««irniSf avec 10 4. 

. Ligne 290 t entrée des déductions, s' il y a n«, Le revenu 

imposable est limité 8 2 720 F lorsque le net 
fiscal avec dédictions est inférieur 8 20 680 P. 

• Ligne 310 s édition du quotient familial 

. Lignes 340 8 360 : calcul ds l'impôt par 1 1 ni les 

. Ligne 380 : calcul da la dernière tranche et *+>+■»«« du 

taux maxi 

. Ligne 360 t on ajoute 5 % eu taux avant da refaire le calcul 

pour la tranche suivante. 

• Lignes 420 8 435 : édition du montant des impôts (global, 

mensuel, et en « du net fiscal) 


Ywae THIBAUT 


1 : CLEAP. :A<27> 
=9890: A<28)= 
10340: AC 29>= 
12270: AC 30)= 
19410: A<31>= 
24950 :AC 32)= 
31360 

5: A<33)=37940 
A < 34 >=45770 
A <35 >=72940 
AC 36 >=100320 
: AC37)=1 1 860 
0: AC 38)= 1350 
00 

6 : AC39)=E99: 

PR I HT "IMPOT 
81: LES TRAM 
CHES. . " 

7: FOR I=26T0 3 
8:K=I+l:T=5* 
CI -26) SPRINT 
US ING "###"; 
TÏ"5î="iUSING 

;aci>; ", •••”; ac 

K > : NEXT I 
20: N=0: IMPOT "M 
AR1E ? 0 /M " 
j A$: IF A$="N 
"GOTO 100 
30: N-* 2 : IMF’UT "I 
HVAL. I DE ? "5 
A$: GOSUB 500 
40*. IMPUT "COM JO 
INT INVAL.?" 
5 AT : GOSUB 50 
Os GOTO 160 


100: INPUT "CELIB 
ATA IRE ? " 5 A$ 
: N=1 : IF A$=" 
0"G0T0 130 


110 : 

IMPOT 

"DI VOR 


ce ?" ; 

A$ : N= 1 


: IF A5 

:=" 0 " 


GOTO 130 

120 : 

PR INT 

"VEUF: 


AYANT . 

II 

m 

130: 

INPUT 

"1 ENF 


. MA JEU 

IR" j A$: 


GOSUB 

500 

140: 

INPUT 

"INVAL 


. 40*? " 

SA$: 


GOSUB 

500 

150: 

IF N >1 

. 5LET 


N=1.5 


160: 

BEEP 2 

: PR INT 


"NB. PARTS CT 


0TAL)= 

"5 N 

200 : 

IMPOT 

"NB. EN 


FANTS 

? "ÎQ 


210: IF Q=0G0T0 2 
60 

220: IF NC2LET N= 
N+. 5 

230: IF Q>=3LET N 
=M+ . 5 

240: N=N+Q/2 
250: IMPOT "NB EN 
FAMTS INVAL. 

?";q:n=n+q/ 

O 

260: BEEP 2 : PR INT 
"NE. PARTS CT 
ÜT AL. > = " 5 N 


270: IMPOT "NET F 
ISCAL. ? " 5 Y : W 
=V: IMPOT "FR 
AIS PROF.CSI 

0 = i ox > " ; g 

271: IF G >44800 
LET G=44800 
274: IF G=0G0T0 2 

Cjf| 

276: W=W-G: GOTO 2 

FiS 

280 : W=W* . 9 
285: W= INT <w*. 8 > 
SPRINT "REV. 

impos.= m ;w 

290: INPUT "DEDUC 
T IONS ? " ? 0: 
IF W< =20680 
LET 0=2720 
291: IF 0X1.5Y)/ 
100LET U=Y*. 
0 1 5 

300: W=W-U SPRINT 
"REV. IMPOS. 
NET = " s W : V=W/ 
N 

310: PR INT "QOOTI 
ENT FAMILIAL 
= " 5 V: 0=26: T= 
0:1=0 

330:0=0+1: IF 03 
8 G 0 T 0 380 
340: IF V<=ACC) 
GOTO 380 

350: I = I + < CACO-A 
CC-1 ) )*T*. 01 
) : PAOSE 
OS ING "##r'S 
" TRANCHE "STÎ 

"*;="; os ingîi 

360: T=T+5: GOTO 3 
30 

380: I=INT CN+CI+ 
C V-A C 0- 1 > ) +T 
+ . 0 1 > ) 

390: PR INT "TR ANC 
HE MAXI 


"üT 


J M V 


400: IF I=0BEEP 2 
: PR INT "PAS 
IMPOSABLE !" 
: GOTO 450 
420: BEEP 2:F'RINT 
"IMPOTS 81 =" 
5 I? "F" : I=INT 
C 1/12) 

430: PR INT "SOIT 
"Si; "PAR MOI 


i“« U 


435: 1= INT CC12+I 
/Y)* 100): 

PR INT "SOIT 

" ; i ; " x no n 

ET ‘FISCAL" 
450: IMPOT "AOTRE 
CALCUL. ?"5A 
$: IF A$="0" 
GOTO 20 
460: END 

500: IF A$="0"LET 
N=N+. 5 

51ü:f;:eturn 


127 PAS 
15 MEMOIRES 




